home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / upd_user.asp < prev    next >
Text File  |  2002-03-12  |  12KB  |  381 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3.  
  4. check_security(1) 
  5.  
  6. %>
  7. <%
  8.     dim user_id
  9.     dim user_name
  10.     dim f_name
  11.     dim l_name
  12.     dim email
  13.     dim password
  14.     dim addr1
  15.     dim addr2
  16.     dim city
  17.     dim state
  18.     dim postalcode
  19.     dim country
  20.     dim phone
  21.     dim fax
  22.     dim notes
  23.     dim dtInserted
  24.     dim dtModified
  25.     dim mailing_list
  26.     dim edit_users_sql
  27.  
  28. sub request_edit_users
  29. ''' request expected input parameters for this form
  30.     user_id = request("user_id")
  31.     user_name = request("user_name")
  32.     f_name = request("f_name")
  33.     l_name = request("l_name")
  34.     email = request("email")
  35.     password = request("password")
  36.     addr1 = request("addr1")
  37.     addr2 = request("addr2")
  38.     city = request("city")
  39.     state = request("state")
  40.     postalcode = request("postalcode")
  41.     country = request("country")
  42.     phone = request("phone")
  43.     fax = request("fax")
  44.     notes = request("notes")
  45.     dtInserted = request("dtInserted")
  46.     dtModified = request("dtModified")
  47.     mailing_list = request("mailing_list")
  48. end sub
  49.  
  50. sub validate_edit_users
  51. ''' request and validate data entered from this form
  52.     user_id = trim(request("user_id"))
  53.     user_name = trim(request("user_name"))
  54.     f_name = trim(request("f_name"))
  55.     l_name = trim(request("l_name"))
  56.     email = trim(request("email"))
  57.     password = trim(request("password"))
  58.     addr1 = trim(request("addr1"))
  59.     addr2 = trim(request("addr2"))
  60.     city = trim(request("city"))
  61.     state = trim(request("state"))
  62.     postalcode = trim(request("postalcode"))
  63.     country = trim(request("country"))
  64.     phone = trim(request("phone"))
  65.     fax = trim(request("fax"))
  66.     notes = trim(request("notes"))
  67.     dtInserted = trim(request("dtInserted"))
  68.     if dtInserted <> "" AND (not isdate(dtInserted)) then
  69.         error_list.add "485139date","joined must be a valid date (MM/DD/YY)."
  70.         b_error = true
  71.     end if
  72.     dtModified = trim(request("dtModified"))
  73.     if dtModified <> "" AND (not isdate(dtModified)) then
  74.         error_list.add "485140date","last update must be a valid date (MM/DD/YY)."
  75.         b_error = true
  76.     end if
  77.     mailing_list = trim(request("mailing_list"))
  78.     if mailing_list = "" then
  79.         error_list.add "485141","mailing list? must be specified."
  80.         b_error = true
  81.     end if
  82. end sub
  83.  
  84. sub get_defaults_edit_users
  85. ''' set default values for this form
  86.     mailing_list = 1
  87. end sub
  88.  
  89. sub db_select_edit_Users
  90.     sql = "SELECT " & _     "user_id, " & _     "user_name, " & _     "f_name, " & _     "l_name, " & _     "email, " & _     "password, " & _     "addr1, " & _     "addr2, " & _     "city, " & _     "state, " & _     "postalcode, " & _     "country, " & _     "phone, " & _     "fax, " & _     "notes, " & _     "dtInserted, " & _     "dtModified, " & _     "mailing_list FROM Users" & _     " WHERE " & _     "Users.user_id = " & to_sql(user_id,"number") & ""
  91.     on error resume next
  92.     set rs = cn.Execute(sql)
  93.     if err.number <> 0 then
  94.         b_error = true
  95.         error_list.add "select_data_edit_Users", "The data selection failed. " & err.description
  96.     elseif rs.EOF then
  97.         b_results = false
  98.         msg_list.add "select_data_edit_Users", "The record was removed from the database."
  99.     else
  100.         user_id = rs("user_id")
  101.         user_name = rs("user_name")
  102.         f_name = rs("f_name")
  103.         l_name = rs("l_name")
  104.         email = rs("email")
  105.         password = rs("password")
  106.         addr1 = rs("addr1")
  107.         addr2 = rs("addr2")
  108.         city = rs("city")
  109.         state = rs("state")
  110.         postalcode = rs("postalcode")
  111.         country = rs("country")
  112.         phone = rs("phone")
  113.         fax = rs("fax")
  114.         notes = rs("notes")
  115.         dtInserted = rs("dtInserted")
  116.         dtModified = rs("dtModified")
  117.         mailing_list = rs("mailing_list")
  118.     end if
  119.     rs.Close
  120.     on error goto 0
  121. end sub
  122. sub db_insert_edit_Users
  123.     sql = "INSERT INTO Users" & _     "(" & _     "user_name," & _     "f_name," & _     "l_name," & _     "email," & _     "password," & _     "addr1," & _     "addr2," & _     "city," & _     "state," & _     "postalcode," & _     "country," & _     "phone," & _     "fax," & _     "notes," & _     "dtInserted," & _     "dtModified," & _     "mailing_list" & _     ") VALUES (" & to_sql(user_name,"text") & "," & _     "" & to_sql(f_name,"text") & "," & _     "" & to_sql(l_name,"text") & "," & _     "" & to_sql(email,"text") & "," & _     "" & to_sql(password,"text") & "," & _     "" & to_sql(addr1,"text") & "," & _     "" & to_sql(addr2,"text") & "," & _     "" & to_sql(city,"text") & "," & _     "" & to_sql(state,"text") & "," & _     "" & to_sql(postalcode,"text") & "," & _     "" & to_sql(country,"text") & "," & _     "" & to_sql(phone,"text") & "," & _     "" & to_sql(fax,"text") & "," & _     "" & to_sql(notes,"text") & "," & _     "" & to_sql(dtInserted,"text") & "," & _     "" & to_sql(dtModified,"text") & "," & _     "" & to_sql(mailing_list,"number") & ")" & _     ""
  124.     'response.write sql
  125.     on error resume next
  126.     cn.Execute(sql)
  127.     if err.Number <> 0 then
  128.         b_error = true
  129.         error_list.add "db_insert_edit_Users" & err.Number ,"The database insert failed. " & err.Description
  130.     else
  131.         set rs = cn.Execute("SELECT @@IDENTITY")
  132.         user_id = rs(0)
  133.         rs.Close
  134.         msg_list.add "db_insert_edit_Users","The database insert was successful."    end if
  135.     on error goto 0
  136. end sub
  137. sub db_update_edit_Users
  138.     sql = "UPDATE Users SET " & _     "user_name = " & to_sql(user_name,"text") & ", " & _     "f_name = " & to_sql(f_name,"text") & ", " & _     "l_name = " & to_sql(l_name,"text") & ", " & _     "email = " & to_sql(email,"text") & ", " & _     "password = " & to_sql(password,"text") & ", " & _     "addr1 = " & to_sql(addr1,"text") & ", " & _     "addr2 = " & to_sql(addr2,"text") & ", " & _     "city = " & to_sql(city,"text") & ", " & _     "state = " & to_sql(state,"text") & ", " & _     "postalcode = " & to_sql(postalcode,"text") & ", " & _     "country = " & to_sql(country,"text") & ", " & _     "phone = " & to_sql(phone,"text") & ", " & _     "fax = " & to_sql(fax,"text") & ", " & _     "notes = " & to_sql(notes,"text") & ", " & _     "dtInserted = " & to_sql(dtInserted,"text") & ", " & _     "dtModified = " & to_sql(dtModified,"text") & ", " & _     "mailing_list = " & to_sql(mailing_list,"number") & " WHERE " & _     "user_id = " & to_sql(user_id,"number") & ""
  139.     'response.write sql
  140.     on error resume next
  141.     cn.execute(sql)
  142.     if err.number <> 0 then
  143.         b_error = true
  144.         error_list.add "db_update_edit_Users" & err.Number ,"The database update failed. " & err.Description
  145.     else
  146.         msg_list.add "db_update_edit_Users" & user_id,"The database update was successful."
  147.     end if
  148.     on error goto 0
  149. end sub
  150. sub db_delete_edit_Users
  151.     sql = "DELETE FROM Users" & _     " WHERE " & _     "user_id = " & to_sql(user_id,"number") & ""
  152.     'response.write sql
  153.     on error resume next
  154.     cn.Execute(sql)
  155.     if err.number <> 0 then
  156.         b_error = true
  157.         error_list.add "db_delete_edit_Users" & err.Number ,"The database deletion failed. " & err.Description
  158.     else
  159.         msg_list.add "db_delete_edit_Users","The record was removed."
  160.     end if
  161.     on error goto 0
  162. end sub
  163.  
  164. do_search = request("do_search")
  165. ''' request form keys
  166. user_id = request("user_id")
  167. ''' request action
  168. action = lcase(request("action"))
  169. ''' action case handler
  170. select case action
  171.  
  172. case "select_edit_users"
  173. '  select the requested key record from database
  174. if user_id <> "" then
  175.     db_select_edit_Users
  176. else
  177.     b_error = true
  178.     error_list.add "edit_edit_Users", "Specify record to select."
  179. end if
  180.  
  181.  
  182. case "insert_edit_users"
  183. '  request form data and insert a new record into database
  184.  
  185. validate_edit_users
  186. if not b_error then
  187.     db_insert_edit_users
  188. end if
  189.  
  190.  
  191.  
  192. case "update_edit_users"
  193. '  request form data and update an existing database record
  194. validate_edit_users
  195. if not b_error then
  196. if user_id <> "" then
  197.     db_update_edit_users
  198. else
  199.     b_error = true
  200.     error_list.add "update_edit_users", "Specify record to update."
  201. end if
  202. end if
  203.  
  204.  
  205. case "delete_edit_users"
  206. '  delete the requested key database record
  207. if user_id <> "" then
  208.     db_delete_edit_users
  209.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  210. else
  211.     b_error = true
  212.     error_list.add "delete_edit_users", "Specify record to delete."
  213. end if
  214.  
  215.  
  216. end select
  217.  
  218. '  no action was specified, so handle the default case(s)
  219. user_id = session("user_id")
  220. if user_id <> "" then
  221.     db_select_edit_users
  222. else
  223.     get_defaults_edit_users
  224. end if
  225. %>
  226.  
  227. <!-- #include file='i_header.asp' -->
  228. <!-- #include file='i_menu.asp' -->
  229.  
  230.  
  231. <%
  232. display_errs
  233. display_msg
  234. %>
  235.  
  236. <table class='headerTable'>
  237. <tr>
  238. <td class='headerTD'>
  239. <A href='user_profile.asp'>MyPortal</A> › Modify Profile
  240. </td>
  241. </tr>
  242. </table>
  243. <table  >
  244. <form name="edit_Users" action="upd_user.asp" method="post" >
  245.         
  246.         <input type=hidden name="user_id" value="<% =user_id %>">
  247.         
  248. <tr>
  249.     <td class='labelTD'>username</td>
  250.     <td class='dataTD' >
  251.         <% =user_name %>
  252.     </td>
  253. </tr>
  254. <tr>
  255.     <td class='labelTD'>first name</td>
  256.     <td class='dataTD' >
  257.         <input type=text  name="f_name" size="" maxlength="50" value="<% =f_name%>">
  258.     </td>
  259. </tr>
  260. <tr>
  261.     <td class='labelTD'>last name</td>
  262.     <td class='dataTD' >
  263.         <input type=text  name="l_name" size="" maxlength="70" value="<% =l_name%>">
  264.     </td>
  265. </tr>
  266. <tr>
  267.     <td class='labelTD'>email</td>
  268.     <td class='dataTD' >
  269.         <input type=text  name="email" size="" maxlength="60" value="<% =email%>">
  270.     </td>
  271. </tr>
  272. <tr>
  273.     <td class='labelTD'>password</td>
  274.     <td class='dataTD' >
  275.         <input type=password name="password" size="" maxlength="50" value="<% =password %>">
  276.     </td>
  277. </tr>
  278. <tr>
  279.     <td class='labelTD'>address</td>
  280.     <td class='dataTD' >
  281.         <input type=text  name="addr1" size="" maxlength="100" value="<% =addr1%>">
  282.     </td>
  283. </tr>
  284. <tr>
  285.     <td class='labelTD'></td>
  286.     <td class='dataTD' >
  287.         <input type=text  name="addr2" size="" maxlength="50" value="<% =addr2%>">
  288.     </td>
  289. </tr>
  290. <tr>
  291.     <td class='labelTD'>city</td>
  292.     <td class='dataTD' >
  293.         <input type=text  name="city" size="" maxlength="50" value="<% =city%>">
  294.     </td>
  295. </tr>
  296. <tr>
  297.     <td class='labelTD'>state</td>
  298.     <td class='dataTD' >
  299.         <input type=text  name="state" size="" maxlength="50" value="<% =state%>">
  300.     </td>
  301. </tr>
  302. <tr>
  303.     <td class='labelTD'>postal code</td>
  304.     <td class='dataTD' >
  305.         <input type=text  name="postalcode" size="" maxlength="50" value="<% =postalcode%>">
  306.     </td>
  307. </tr>
  308. <tr>
  309.     <td class='labelTD'>country</td>
  310.     <td class='dataTD' >
  311.         <input type=text  name="country" size="" maxlength="50" value="<% =country%>">
  312.     </td>
  313. </tr>
  314. <tr>
  315.     <td class='labelTD'>phone</td>
  316.     <td class='dataTD' >
  317.         <input type=text  name="phone" size="" maxlength="50" value="<% =phone%>">
  318.     </td>
  319. </tr>
  320. <tr>
  321.     <td class='labelTD'>fax</td>
  322.     <td class='dataTD' >
  323.         <input type=text  name="fax" size="" maxlength="50" value="<% =fax%>">
  324.     </td>
  325. </tr>
  326. <tr>
  327.     <td class='labelTD'>notes</td>
  328.     <td class='dataTD' >
  329.         
  330.         <textarea  name="notes" rows='10' cols='70'><% =notes%></textarea>
  331.         
  332.     </td>
  333. </tr>
  334. <tr>
  335.     <td class='labelTD'>joined</td>
  336.     <td class='dataTD' >
  337.         <% =dtInserted %>
  338.     </td>
  339. </tr>
  340. <tr>
  341.     <td class='labelTD'>last update</td>
  342.     <td class='dataTD' >
  343.         <% =dtModified %>
  344.     </td>
  345. </tr>
  346. <tr>
  347.     <td class='labelTD'>mailing list?</td>
  348.     <td class='dataTD' >
  349.         <% if mailing_list = "" then mailing_list = false %>
  350.         <input type=checkbox  <% if mailing_list then %>checked<% end if %> name="mailing_list" value="1">
  351.     </td>
  352. </tr>
  353. <tr>
  354.     <td class=labelTD align=right> 
  355.     </td>
  356.     <td class=dataTD>
  357.     <input type=submit name=update_button value='UPDATE'>
  358.     <% if user_id <> "" then %><input type=submit name=delete_button value='DELETE' onclick="document.edit_Users.action.value = 'delete_edit_Users'"><% end if %>
  359.     </td>
  360. <input type=hidden name="action" value="update_edit_Users"></tr>
  361.  
  362. </form>
  363. </table>
  364.  
  365.  
  366.  
  367. <!-- #include file=i_footer.asp -->
  368.  
  369.  
  370. <%
  371. ':: assure that any db resources are freed
  372. on error resume next
  373. rs.Close
  374. set rs = NOTHING
  375. cn.Close
  376. set cn = NOTHING
  377. user_cn.Close
  378. set user_cn = NOTHING
  379. on error goto 0
  380. %>
  381.